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1b-s6 1984 01:15:44 VAX-11 Bliss-32 V4.0-742 Page 1 Rs 

12-8 08-13be 93:33:25 DISKSVMSMASTER:CF11A.SRCIRWATTR.B32;1 . (1) ve 
: 1 1 MODULE RWATTR ( 
: ¢ 4 LANGUAGE COL 13526) « 
3 IDENT = ‘V04-000' 
: 4 des 
5 5 5 BEGIN 
Bee 1: 
3 3 $08 } SRR RRR AARARAAAE RARER EEAEE EAE EAHA TEAATE AAA AE RARER ARATE eET 
3 '@ © 
.. 010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 11 011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: \¢ \§ ! ;* ALL RIGHTS RESERVED. * 
g : : 
s % 14 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
a oe 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 1 8918 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH « | 
3 1 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i 44 : :* TRANSFERRED. * 
5 'e e 
; A 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE we 
3 ; 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 Z 8 Z : is CORPORATION. ® 
g i ® 
3 5 4 5 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 6 $ 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Tee 00 1 Ie * 
; 0028 1 !* * 
4 9 00 9 1 VeRO RRR EAAAAAAREERERAEAEAR ERATE RATA AAA ARATE EREE eee 
3 0 0030 1 
3 1 0031 1 !44 
; 4 it 1! 
5 0035 1 ! FACILITY: F11ACP Structure Level 1 
3 4 0034 1! 
3 $2 0035 1 ! ABSTRACT: 
5 6 0036 1! ; | 
: 7 0037 1! This module contains the code and tables to process the read 
3 8 0038 1! and write attributes functions. 
; y 0039 1! 
3 40 0040 1 ! ENVIRONMENT: 
; 661 0041 1! ; 
3 $§ Boe$ 1! STARLET operating system, including privileged system services 
; 6 0045 1! and internal exec routines. This routine must be executed 
: 44 Bbee 1! in kernel mode. 
3; 65 . 2% 
3; R066 1 !-- 
: 47 0047 1! 
3; 648 nk 1} 
: 4 sir ' : AUTHOR: Andrew C. Goldstein, CREATION DATE: 6=-Jan-1977 21:05 
: : 2) ' } MODIFIED BY: 
3 : 2g 1} v03-008 LMP0241 L. Mark Pilant, 26-Apr-1984 10:47 
3 55 33 ! Include the FIB in the MAKE_NAMEBLOCK routine call. | 
3 6 $ 1! v03-007 ACG0415 Andrew C. Goldstein, 9-Apr-1984 16:26 | 
es a 0057 1! Fix probing of access mode ATR's; extend ascii file name to 


D 12 
RWATTR 16-Sep-1984 01:15:44 VAX-11 Bliss-32 V4.0-742 Pa 2 Riv 
v04-000 12-808 - 1382 9338286 DISKSVMSMASTER:CF11A.SRCIRWATTR.B32;1 ” (1) ve 
; 38 38 } 86 bytes 
: 60 01 v03-006 ACG0410 Andrew C. Goldstein, 22-Mar-1984 22:31 
; 2: 1 ; } Add support for access mode attribute 
; 6 we 1 i v03-005 LMP0154 L. Mark Pilant, 14-Sep-1983 11:21 
; 66 064 1! ering the attribute table up to the same level as the 
: 65 065 ' } attribute definition macro (SATRDEF). 
; & 06? 1 / v03-004 ACGO355 Andrew C. Goldstein 30-Aug-1983 15:21 
68 0068 ; Fix bug in high order UIC test in ACGO329 
; 70 01 v03-003 ACG0329 Andrew oldstein 12-Apr-1983 14:18 
: 4 te : } Fold long UIC's into 397377 for 16 bit ule 
ee ooe8 1 i v03-002 $TJ3079 Steven T. Jeffreys, 26-Mar-1983 
: a Bare : Add dummy HIGHWATER attribute. 
. 0076 1 | V03-001 LMP0066 L. Mark Pilant 15-Dec-1982 10:04 | 
s 77 0077 1! Handle ACL attributes gracefully rather than blowing away 
: ie th : with a bad attribute error. 
: 80 0080 1} v02-008 ACG0253 Andrew C. Goldstein, 18-Jan-1982 16:23 
: a 4 : } Add dummy HDR1 accessibility attribute 
: 8 b08$ 1 i v02-007 ACG0232 Andrew C. Goldstein, 4-Dec-1981 16:47 
; oe sie : Protect HIBLK during write attributes 
> 86 0086 1: v02-006 ACG0229 Andrew C. Goldstein 11-Dec-1981 13:40 
; Hi sie $4 : Extend statistics block to include full counts | 
: 89 0089 1: v02-005 ACG0221 Andrew C. Goldstein, | 30-Oct-1981 18:07 
: 4 p03 Add file attribute for journal flags 
: 9 0092 1: v02-004 MLJ0029 Martin L. Jack, 11-Jul-1981 23:40 | 
‘>. = 0095 1! Clean up file header to quadword time conversion so that 
: 694 0094 1! hundredths of seconds are taken as zero rather than 
: 0095 1! propagating from current time, and ensure that zero is | 
3 38 8098 ! } returned for an invalid time string. | 
: 98 0098 1! A0103 ACG0097 Andrew C. Goldstein 18-Dec-1979 19:15 
: 190 S044 : : Protect SPOOL, BAD, DELETE, etc., file char's | 
: 101 9101 1 i A0102 ACG0093 Andrew C. Goldstein,  6-Dec-1979 19:58 
3 106 B108 : Add dummy backlink attribute, fix user char format 
: 104 0104 1: A0101 AcG0023 Andrew C. Goldstein, 19-Feb-1979 13:23 | 
3 193 3192 : Fix max attribute code to include DIRSEQ | 
: 198 $398 1: A0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:03 
: 108 108 1! Previous revision history moved to F11A.REV 
; 109 109 1 !ee 
: 6110 110 1 
a 399 133 3 
2 6 18 1 LIBRARY ‘SYSS$LIBRARY:L g L352"; 
Sa. 011 1 REQUIRE ‘SRCS$:FCPDEF.B32'; 
> 1146 0428 1 


if} $p7}882 93:58:25 Ba cbumGmaSteRschT1n.SReaewarrR.e32:1°%° (13 


11 1 

118 4 1 FORWARD sy 

11 1 aT ATTRIB, ' read attributes 

118 1 D_TO_SPEC : NOVALUE, ' convert FID to file-spec 
11 4 1 URITE ATTRIB : NOVALUE; i write attributes 


F 1 2 | 
ATTR 19=3007 138% 91 15:44 VAX-11 Bliss-32 V4.0-742 Page 4) 
-000 14-Sep-1984 12:29:49 DISKSVMSMASTER:CF11A.SRCIRWATTR.B32;1 (2). 


Rw 

v04 

a yi 

3; : 4 § 1 ! Attribute control table. The table is indexed by attribute number. 

: 126 4 1 ! The first byte contains random flags. The second byte contains 

s Yeo 438 1 ! the attribute location code. The third byte contains the offset 

. % $ 439 1! of the attribute from its location origin. The fourth byte contains 

. ¥ 440 1! the index of the action routine to process the attribute. The fifth 

; : ; re : — as bytes (a word value) contains the maximum size of the 

3 ! attribute. 

3; 1350 ek 1! 

3 3) 444 1 !e= 

& ¢ 445 1 

; ; rr | : Macros and Literals to access the table entries. 

; 135 beck 1 

; 136 0449 1 MACRO | 

: 137 0450 1 ATC_READ ONLY = 0,0,1,0%, ! read only attribute 

; (138 0451 1 ATC_PROTECTED = 0,1,1,0%, writable by file owner only 

: 120 bee | ATCLOCATION ° 17658 ;0% iin wade | 

> (141 0454 1 ATC_OFFSET 5 §°0 8-08. ' location offset 

3 | 0455 1 ATC_ACTION = 3,0,8,0% ' action routine 

i 148 0496 ATC_MAX_SIZE = 4,0,16,0%; | max attribute size 

; «6145 0458 1 

; 146 0459 1 ! Masks for the flags. 

; 147 0460 1! 

: 148 0461 1 

; 6149 Reee 1 LITERAL 

: 150 04635 1 M_READ_ONLY = 1, 

s 151 0464 1 M_-PROTECTED = 2, 

; 13¢ 0465 1 M_LOCKED = 4; 

; 0466 1 

; 61546 046 1 

3 39 0468 1 ! Attribute location codes. 

; 136 0469 1! 

s 0470 1 

; 64158 471 1 LITERAL ; 

3 = Q, ! zero = no location 
159 472 1 ATC_ZERO 0 iz locat 

; 160 473 1 ATC_FCB = 1, : in file control block 

: «161 474 1 ATC_HEADER = ¢- ! file header header area 

3 196 0475 1 ATC_IDENT = 3, ! file header ident area 

3; pe 78 1 ATC_MAP = 4, ! file header map area : 

: 19¢ rh AA ! hb ey a = 2° file header Access Control List area 

: et = 6, : obal storage 

3 166 of ' ATC_F ID2NAME = 7, : Convert FID to file spec 

Py , | 

3 168 pe8) : ATC_LASTATC = 7; ! last location code 

: 159 4 : 1 

: 171 1 ! ACP global storage index codes. 

. oF 1 

3 174 487 1 LITERAL ; ; 

; if 4 1 GBL_PRV = 0, ' 4 abode used to gain access 

3 176 "1 9 ' GBL_ACE = 1, ! ACE used to gain access 
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blank character attribute 


Access Control List 


name 
buffer access mode 


64 bit date and time 
HEADER, 


al attribute code 
P © copy 
build statistics block 
file owner UIC 
ATC 
ATC 
ATC 
ATC 
T 
T 
| 
T 
T 
T 
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Le 
highest action routine code 


' Last index code 
' nore attribute 
sim 
zero valued attribute 
4 byte 
user contro 
C 
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ROTECTED, 
EAD_ONLY, 
EAD_ONLY, 
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SBYTEOFFSET (OFF1, OFF2, OFF3, OFF4), 
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LOC 
= 0,0,0,02%; 


21; 
= 12; 


= UPLIT BYTE ( 
CHAR 
ECATER 
ILNAM 
LTYP 
LVER 
XPDAT 
STATBLK, 
HEADER, 


ATTRIBUTE (CODE, FLAGS, LOC, OFF1, OFF2, OFFS, OFF4, SIZE, ACTION) = 


GBL_LASTGBL 
ACT_LASTACT 
NULL_F IELD 
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BUTE (ATRSC 
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Attribute processing action routines. 
The attribute control table itself. 


Macro to build table entry. 
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PROTECTED_CHAR = S$FIE (FHISV_CONTIG) 

R SFIELDMASK (FHI$V_SPOOL)“*8 
SFIE (FH1$V_BADBLOCK) “8 
SFIE (FHS 
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This routine performs the read attributes function. The 
requested attributes are assembled into the buffer packet. 


packet for this operation 
° e 


BBLOCK, 


F 
: REF BBLOCKVECTO 


: REF BBLOCK, 


: REF BBLOCK, 


: VECTOR FOATLEN 


: BYTE 
: BBLOCK (86), 


attribute data written into buffer packet 


file header arg 
R C,ABDSC_LENGTH); 


| buffer descriptor arg 


' 
' 
i 
' 
' 
f 


Length of date string buffer 


' Local copy of header addres 


s 
access mode to set for attribute buffer 
po ape to otter toute text 


attribute size desire 


! address of attribute 


a*tribute code 

mas size of attribute ; 

BYTEJ, ! buffer to build date string 
string descriptor for date string 

code of action routine ° 

buffer to build reformatted attribute text 


; 91 613 GLOBAL ROUTINE READ_ATTRIB (HEADER, ABD) = 
; § 13 i++ 

; 05 at ; FUNCTIONAL DESCRIPTION: 

: 30 19 1/3 

. ae 

: 310 Oe ; 1 | CALLING SEQUENCE: 

; 1 ; ; READ_ATTRIB (ARG1, ARG2) 

: ig Oe 5 1! INPUT PARAMETERS: 

3 14 § 1! ARG1: address of file header 
: 12 be : ARG2: address of buffer descriptors 
: 317 06 9 1 | IMPLICIT INPUTS: 

: 318 630 1! 10_PACKET: 1/0 

; 19 0631 ; PRIMARY_FCB: FCB of fil 

: 321 0638 1 | OUTPUT PARAMETERS: 

: $§ ste ; } ARG2: address of buffer descriptors 
; Si 0656 1 | IMPLICIT OUTPUTS: 

: 35¢ 0638 | | vente 

: 358 0639 1 ' ROUTINE VALUE: 

; 328 1! 1 if successful 

: $69 ' if error 

: 331 1 | SIDE EFFECTS: 

3 3 1! 

:- is 1! 

3 5 1 

: 36 BEGIN 

; 338 MAP 

: 339 HEADER : RE 

3 re ABD 

: rk LITERAL 

; rt DATLEN = 23; 

: 46 LOCAL 

; 34 LOCAL_HEADER 

; 48 ACCESS MODE. 

: 350 T 

: 21 ADDRESS 

: 36 MAX COUNT, 

: 354 ATBUF 

} 55 DATDESC 

; 28 ACTION 

: 35 ATT_BUFFER 


Pp 
JRWATTR.B32:1 9 (3 
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; 67 
; a 
; org 
: 674 
3 675 
: ore 
: 67 
3 678 
3 79 
3 680 
; ° 1 
3 683 
5 0684 
3 See? 
3 686 
3 0687 
: 37 0688 
3 0689 
; 378 0690 
; 379 0691 
; 380 069 
; 381 069 
3 $66 0694 
3; 0695 
3 tee 0696 
; 385 0697 
: $88 0698 
s 87 99 
; 388 00 
; 389 701 
: 390 70 
; 391 70 
: $08 4 
; 5 
3 394 $ 
: 95 

; 396 08 
; 9 
3 0 


— a a td oo 
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16-Sep-1984 01:15:44 VAX-11 Bliss-32_V4,0-742 
12-88-1982 93: 9:49 DISKSVMSMASTER:CF11A.SRC 
' 
i 


ACE_POINTER : REF BBLOCK, address of user ACE 
STATUS; routine exit status 
EXTERNAL 
10 T : REF BBLOCK, ! 1/0 packet in process 
PRIMARY _FCB : REF BBLOCK, ! rcs of file 
CURRENT WINDOW : REF BBLOCK, ! window of file 
FILE_HEADER : REF BBLOCK; ! address of current file header 
EXTERNAL ROUTINE 
PMS_START_ SUB, ' start subfunction metering 
PMS"END_ SOB, ! end subfunction metering 
rs EE ' convert file name block to string 
SYSSBINTIM : ADDRESSING_MODE (ABSOLUTE), 
' convert string to binary time 
READ_HEADER; ! Read a file header 


Start metering for this subfunction. 


PMS_START_SUB (PMS_RWATT); 


STATUS = 1; ' assume success 
LOCAL_HEADER = .HEADER; ! Copy header address 


! Set the buffered read bit in the 1/0 packet to indicate to IO_DONE that 
the attribute buffers are valid. 


10_PACKETCIRPSV_FUNC) = 1; 
ACTESS_MODE = .YO_PACKETCLIRPSV_MODE); 
' 

i 


Scan the buffer packet, picking up each entry. The first orte of the 
text is the attribute code, and must be overwritten with the access 
mode of the request for the 1/0 completion processing. 


INCR oo ABDSC_ATTRIB TO .1O_PACKETCIRPSW_BCNTJ-1 DO 
= ,ABDC.1, ABDSW_TEXT] + ager... ABDSW_TEXT); 
OUNT = .ABDC.1, ABD$W_COUNT); 
ODE = .(.P)<0,8> - 1; 
-P)<0,8> = .ACCESS_MODE; 
se  ¢ 13 
! Check the attribute code for legality, and then check the requested 
! size against the Limit. If an error exit is made, first truncate the 
descriptor count to inhibit return of the unprocessed descriptors. 


IF .CODE GTR MAX_CODE - 1 
THEN 


RP$W_BCNT) = .1; 
(SS$_BADATTRIB); RETURN 0); 


p 9 
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UNT = .ATCC.COD ATC MAK SIZE; 


MAX_CO é 

IF COUNT GTR .MAX_COUN 
BEG! 
10 
(E 
EN 


RP$W_BCNT) = .1; 
(SSS_BADATTRIBS; RETURN 0); 


Get the action routine code first. 


ACTION = .ATCC.CODE, ATC_ACTION); 
Compute the address of the attribute. 
anone ss = 
CASE .ATCC.CODE, ATC_LOCATION] FROM 0 TO ATC_LASTATC OF 


ATE AFERQI: ATT BUFFER; 


SSNS SSS NSS SSS 
SY faa be” bee” be be | Sak “al “al “al “al al “ak al al ah Ab Ab Ah dh Ah dh Ah Ah AL Al dot oot et oe ee ae et et et me ee ee at atat) 
MEW 0 ODNAUE WN OOONAUS WAN" O OONOU SWI O CONC UE WR OU0O~ 


CACT_COPY): 0; 
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438 C"FCB) .PRIMARY_FCB; 
439 ATC“HEADERJ “LOCAL _HEADER; 
440 TCTIDENT .LOCALHEADER + .LOCAL_HEADER[FH1$B_IDOFFSETJ*2; 
441 TC"MAP): .LOCALHEADER + .LOCAL-HEADERLFH1$B_MPOFFSETJ*2; 
44 ATC"ACLJ: LOCAL HEADER; 
CATC~ACPGBLI: BEGIN 
444 ACTION = ACT_ZERO; 
445 ATT_BUFFER 
446 END; 
447 CATC_F ID2NAME]: BEGIN 
448 FID_TO_SPEC (); 
449 LOCAL_READER = .FILE_HEADER; 
450 FILE_SPEC_LEN 
451 END; 
4b¢ TES 
45 ) 
454 + .ATCL.CODE, ATC_OFFSET); 
455 
456 
rH Finally execute the action routine. 
459 
460 CASE .ACTION FROM 0 TO ACT_LASTACT OF 
461 SET 
46¢ 
46 CACT_NOP): COUNT = 0; 
464 7 
465 77 CACT_ILLEGALJ: BEGIN 
466 778 10_PACKETCIRP$W_BCNT] = .I; 
467 779 CERR_STATUS (SS$S_BADATTRIBS; RETURN 0); 
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. ( ADDRESS+9); 
. ( ADDRESS+#11); 


, (, ADDRESS*7) ; 


0,8 


. ( ADDRESS+ 


(DATBUF +11)<0 


IF 


PS oe OS Oe Se OS FS Oe eS FS OS OS OS HS FS OS FSFE HS ES HS FS HR FEES EE FES SS SHE SSE ES TS TS HS TS SCS HSS FSFE “SSS SSS SS HS HS “SS SESS ST 


R+4) = 0; 
BUFFER) ; 


<0,24> = '.00'; 

) = (ATT_BUFFE 
DATLEN; 
DATBUF ; 
DATDESC, ATT 
T_BUFFER; 


. 
( 
AT 


DOK OMM TN OR. DHOOM MUM TMOR. DOO CUM TMOR. OKO RK UMN 
DOVE IAM IN SF SF FST TST TTT TAMNNANNANINAANOOOOOO 
LLVLVLVLVLVLVLVLVLVLVLVLVULVULVLVULVLVLVLVLV LV LULL LV LVL LVL LV LVLV LVL LVL LV ELVA LYELL VELV ALVES ELV ALV LLY EL ELVES LN ALN ASN AON 


PROS HS OSHS HS HS HS HS HS HS HS HS HS HS SS HSS HS HS HS HS FS SS FS HS *S HS FSCS FSS se *S*S*S FS *S*S*S ee S*S*S se l*S*S terete *S*S*erearearta *& 


_ACLEMPTY; 


.P); 
MODE), .(.P)<0,8>); 


CHSFILL (0, .COUNT, 


BEGIN 
END; 


0; 


ROM ATRSC_ADDACLENT TO ATRSC_READACE OF 


ADDACLENT, 


DELACLENT 
MODACLENT 
.10 PACKETCIRPSV MODE); 


MAXO (.10_PACKETCIRPSV 


.P; 
DELETEACLA: 
NDACLENT, 
NDACETYP, 


TRSC 


A 
ATRSC 


ATRSC 
CATRSC_ACLLENGTH): 


POINTER 
-CODE + 1 F 
CATRSC 


E 


BEGIN 
CAS 
SET 


ACE 
CHSMOVE (.COUNT, .ADDRESS, .P); ! finally copy the attribute 


0” 
oe 
_—) 
< 
t 
— 
i) 
< 
i 


FF FLDDDDDDVD SF DVDS FF FFF FOIE SSF SF TNS FNS STF TEINS ST TIE 


TES; 


AO-K—NMTNHOR OOO 
ORRRARARARR 


< 
» 


< 
g 


SESPESSESESS 


— 
— 
=» 


38 END; 


901 

O08 Stop metering of this subfunction 
904 ; 

905 PMS_END_SUB (); 


90 RETURN .STATUS; 
0909 END; 


02 08 02 0 
02 OA 02 0 
09 OC 02 04 
0000 0004 
02 O€F 02 04 
0000 0020 
02 00 03 00 
0000 000A 
02 06 03 00 
0000 0004 
02 08 
02 68 03 
03 00 
02 ; 
0 
05 0 
0% 9 
oa 
00 
000 00 
00 00 
06 
07 1 


07 
07 


! end of loop 


! return success 

! end of routine READ_ATTRIB 
-TITLE RWATTR 
-IDENT \V04-000\ 
-PSECT $CODES,NOWRT,2 


00000 P. AAA: BYTE . ae 8, 2 
00004 “WORD 5. 0 
00008 “BYTE ¢. e. 10, 2 
0000¢ “WORD 3. 
90010 -BYTE 4, 2, 12, 9 
0014 “WORD 4. 0 
00018 BYTE 4. 2, 14, 2 
0001¢ “wORD 32, 0 
00020 “BYTE 0, 3, 0, 2 
00024 7woRD 10, 6 
00028 ‘BYTE 0, 3, 6, 2 
00¢¢ "WORD 4. 9 
00030 “BYTE 0. 3, 8, 2 
00034 ‘WORD 2. g 
00038 "BYTE é. , 38, 2 
0003¢ ‘WwORD 7, 0 
00040 vie. 1. 1. & 2 
00044 “WORD 32, 6 
0048 "BYTE 1, 2, 0, 2 
0004¢ “word 512, °0 
00050 ‘BYTE 0, 6, 0, 5 
00054 [WORD 2. 0 
0058 “BYTE 0 0, 0, 4 
005¢ “word 806, 6 
9066 “BYTE 5 0. 2 
64 “wordD 35, 6 
0068 BYTE 0, 0. 0 
006¢ “word 14, 6 
0070 BYTE 0, 0, 0. 0 
0074 “wORD 1. 9 
78 “BYTE 0 0, 6 
007 “wORD 86, 6 
080 BYTE es eS 
084 “wORD 8. 9 
0 -BYTE e e 12, 7 
0 "WORD 8. 
00 BYTE . o 38, 7 
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RWATTR 16-Sep-1984 01:15:44 VAK=11 Bliss-32 V4.0-742 Page 15 
v04-000 ox ee- 1882 93:58:05 PES UMOMASTERSCH TIAG SREIRWATIR.B32:1°%" (4), 
00 17 WORD 0 ; | 
8000299 20185 p.anB: ‘tone $f2 
184 P.AAC: ASCII \ \ : 
.PSECT S$LOCKEDD1$,NOEXE,2 
00000 FILE_SPEC LEN: ‘ 
00002 FULL_FILE_SPEC: 
-BLKB 510 
ATC= P.AAA 
.EXTRN I0_PACKET, PRIMARY_FCB 
“EXTRN CURRENT WINDOW, FICE HEADER 
*EXTRN T 
“EXTRN MAKE_STRING, SYSSBINTIA 
“EXTRN READ-HEADER, USER_STATUS 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 ENTRY READ ATTRIB, Save R2,R3.R4,R5,R6,R7,RB,R9,- ; 0613. 
SE FF70 CE 9E 0000 MOVAB <-144(SP), SP : 
09 DD 0000 PUSHL 4&9 F 0691, 
00006 CF 01 FB 00009 CALLS #1, PMS_START_SUB ; 
16 AE 01 v0 00005 MOVL sso #1, : 0695 
56 04 AC 00 0001 MOVL HEADER, LOCAL_HEADER > 0694 
50 00006 CF D0 00016 MOVL  I0_PACKET, RO : 0706 
2A = AO 02 88 0001B BISB2 a2. 42(ROS : 
10 AE 0B Ad 02 00 EF OO01F EXTZV #0. #2, 11(RO), ACCESS_MODE : 0701 
OC AE 32. ad 3C 00026 MOVZWL 5O(RO). 12(SP) : 0708 
SA 04 DO 00028 MOVL #4 : 0710 
0218 31 O002E BRW 37§ ; 
50 08 BC4A 7E 00031 1$ MOVAQ @ABDCIJ, RO ; 
59 60 3C 000 MOVZWL (RO) ; 
59 50 (0 00039 DDL2. RO, P F 
58 02 Ad 3C 0003¢ MOVZWL 2(R0), COUNT : 071 
58 69 9A 00040 MOVZBL (P), ¢ : 071 
58 07 00043 DECL CODE ; 
89 10 Ar 90 00045 MOVB  ACCESS_MODE, (P)+ : 071 
2F 58 D1 00049 CMPL CODE, #47 : 072 
0B 14 0004C BGTR _—2$ ; 
FE2C CF48 7F O06 PUSHAQ ATC+4(CODE) : 072 
6E 9— 3¢ 909 MOVZWL @(SP)+, MAX_COUNT ; 
6E 38 D1 00056 CMPL COUNT, MAX_COUNT : 0729 | 
03 15 00059 2$ BLEG $ ; 
0085 31 0058 BRW 15$ : | 
FEIB CF48 7F 0055 3$ PUSHAQ ATC+3CCODE) : 0740 | 
04 AE 9E 90 0006 MOVB a(SP)+, ACTION : c 
FE10 CF48 7F 00067 PUSHAQ ATC*ICCODE) : 0747 | 
00 9& BF 9006¢ CASEB a(SP)+, #0, #7 : 
0019 0028 0012 0031 0070 4$: <WORD 11$-4$.- : 
0037 0028 OO1E 00078 5$-4$,- ; 
9$-4$;- : 
4$,- . 
4$.- : 
4$.- 
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(SP), #0, COUNT, @ACE_POINTER 
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RWATTR 1S-s2 Sep-1984 01:15:44 AX-11 Bliss-32 V4.0-742 ge 18 
v04-000 iansep-1904 93: :29:49 DISKSVMSMASTER:CF11A.SRCJRWATTR.B32; a (3) | 
9 ; 
$4 11 BRB 35$ + 0886. 
5 00006 CF DO 33$:  MOVL I0_PACKET, RO + 0890 
51 0B Ad 03 00 3 A EXT2V 17 ie 11(RO), R1 : ” 
FEO 1 90 0 0 MOVE = R11. =10P) : 
50 0B a0 08 09 fF EXTZV #0, #2, 11(RO), RO + 0891 
69 91 O023A cMPB «CPS, RO ; 
03 18 0023D BLEQU 34$ : 
50 9 9A 0023F MOVZBL (P), RO : 
10 AE 0 DO 00242 34$:  MOVL RO, ACCESS_MODE ; 
B D4 002466 35$:  CLRL. COUNT + 0892 
69 67 5B 26 00 48 36$: -MOVC3 COUNT (ADDRESS) (P) + 0896 
02 A 0c AE F 4C 37$: AOBLSS i2(SPS, 1, 38$ : 0708 
03 11 00251 BRB 39$ : 
FDDB 31 00253 38%: BRW 1$ : 
00006 CF 00 FB 00256 39$: CALLS #0, PMS_END_SUB + 0905 
50 146 AE DO 00258 MOVL STATUS, ~RO ~ + 0907 
04 0025F RET : 
50 D4 00260 40$ CLRL = RO + 0909 
04 00262 RET ; 


| 
; Routine Size: 611 bytes, Routine Base: S$CODE$S + 0185 
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ROUTINE FID_TO_SPEC : NOVALUE = 


ee 


' 
FUNCTIONAL DESCRIPTION: 


the FIB is non-zero, the Srectery portion of the 
in. Otherwise, it is left blank (e.g., CJ). 


CALLING SEQUENCE: 
FID_TO_SPEC () 


INPUT PARAMETERS: 


This routine converts the specified file-I1D (contained in the header 
supplied) to a full file specification. If the directory-I1D in 


spec is filled 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
} none 
i IMPLICIT INPUTS: 
none 
i QUTPUT PARAMETERS: 
none 
i IMPLICIT OUTPUIS: 
none 
i ROUTINE VALUE: 
none 
i SIDE EFFECTS: 
none 
— 
BEGIN 
i INKAGE 
L_CVT_DEVNAM = JSB (REGISTER = 0, ! Buffer length 
REGISTER = 1, ' Buffer address 
REGISTER = 4, '. Cluster node conversion fiag 
REGISTER = 5; ' UCB address 
REGISTER = 15; ' Length of converted name 
LITERAL 
NODE _LEN = 15, ! Maximum cluster node name Length 
DEVNAME_LEN = 15, ' Maximum device name Length 
UNIT_LER = 5, ! Maximum unit number Length 
FILENAME _LEN = 9, ' Maximun file name Lengt 
FILETYPE LEN = 3, ' Maximum file type length 
FILEVER_CEN = 5, ! Maximum version Lengt 
FULLDEV_LEN = NODE_LEN + 1 + ! Full device spec length 
DEVNAME LEN + UNIT_LEN + 1, 
FULLDIR_LEN = 1 + FILENAME_LEN +°1, ! Max dir spec Length 
FULLFILE_LEN = FILENAME_LEN+ 1 + ' Max file name Length 
FILETYPE LEN + 1 + : including type & version 
FILEVER_CEN, 


42 p 
RCIRWATTR.B32: 1° 


1-38 -1984 744 VAX-11 Bliss-32_V4.0-742 20. Ri 

04-000 1esep-198G 12:29:49 DESKSVMGMASTERSEE TiR SREIRWATIR.B32:1°%° (aS, 

$26 967 FULLSPEC_LEN = 2 + FULLDEV_LEN + ! Maximum file spec Length 

6 Bc8 FULLDIR_LEN + ! Includes word size prefix 

658 38 FULLFILE_LEN; 

659 970 

660 971 LOCAL 

661 38 DEVICE_LEN, ! Length of the device name 

66 97 DIR_HEADER : REF BBLOCK, ' Current directory file header 

oo? Bare IDENT_AREA : REF BBLOCK; ! Address of header ident area 

665 $978 EXTERNAL 

666 097 FILE HEADER : REF BBLOCK, ! Address of current file header 

667 pare 10_PACKET : REF BBLOCK, | Address of current 1/0 packet 

668 979 tOrAL FI6 : BBLOCK, ' Copy of user's F 

4 444 PRIMARY FCB : REF BBLOCK; ! Address of primary FCB 

671 84-04 EXTERNAL fey: | 

67 098 oa HEADER, Read & validate file header | 

67 0984 AK STRING, Convert file ome block to string | 

ore 84 Toe CVT_DEVNAM : L_CVT_DEVNAM ADDRESSING MODE (GENERAL); 

676 098 BIND 

677 0988 DEVICE _NAME = FULL_FILE_SPEC : VECTOR C,BYTE), ! Device name spec 

678 0989 DIR_NAME = FULL-FILE_ SPE CEFULLDEV. LEN + 1) : yeeros C,BYTE), ! Directory name sto 

679 0990 FILE_NAME = FULL_FILE_SPECCFULLDEV_LEN + 1 + | File name storage 

0 FULLDIR_LENJ : VECTOR C,BYTE); 


! Initialize all of the necessary storage. 
CHSFILL (0, FULLSPEC_LEN, FULL_FILE_SPEC); 
! Get the device name. 


IOCSCVT DEVNAM (FULLDEV LEN, gRevice NAME, 0, .I1O_PACKETCIRPSL_UCB]; DEVICE_LEN); 
FILE_SPEC_LENCOJ = .DEVICE_L 


és | 

689 1000 

! Start building the Set specification. | 
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BEGIN 
IF .FULL_FILE sage 
IF .K EOC F ILENAME _L 


BEGIN 
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1 
1 
69 1004 FULL_FILE_SPEC -FILE SPEC_LENCO]] = C's 
o38 1993 FILE-SPEC_LENC j = FILE _5PEC_LENCO] + {; 
696 1007 ! If a directory-ID has been given in the FIB, return the diretory spec 
697 1008 ! also. Otherwise, leave it blank. 
698 1009 
ory 1010 IF .LOCAL_FIBCFIBSW_DID_NUM] NEQ 0 
00 1 THEN 
701 1 BEGIN 
70 1 DIR_HEADER = READ_HEADER (LOCAL_FIBCFIB$W_DIDJ, 0); 
70 1 IDERT_AREA = .DIR-HEADER + .DIR rt eee 1DOFF SETI #2; 
704 1 MAKE_STRING CIDENT_AREACFI1$W_ FILENAME) - PRYICOFFSET (NMBSW_NAME), 
705 1 FULL_FILE_SPECLC. FILE SPEC LENE })); 
706 : EN - 
1 
1 
1 
1 
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1b-$e -1984 5:44  VAX-11 Bliss-32 V4.0-742 
1 et 93:3 9:49  DISKSVMSMASTER:CF11A.SRC 
FULL FALE WSPECC.FILE_SPEC_LENCOJ] = '?'; 
EXITCOOP; 
FILE. SPEC WLENCOJ= .FILE_SPEC_LENCO) + 1; 
READ _HEADER (LOCAL_FIBCFIBSW_FID], .PRIMARY_FCB); 
! Tie off the directory pliner es 
FULL_FILE ~SPECE FILE_SPEC_LENCOJ] = 
FILE-SPEC“LENCO) = .FILE_SPEC CP eNCOD ; i 
! Now add in the file name. 
IDENT_AREA = .FILE_HEADER + Fite HEADERCFH1$B. IDOFFSETI#2; 
MAKE STRING (iDENT— AREAL F11SWAE ILENAME] = SBYTEOFFSET (NMB$W_NAME), 
E_SPECC.FILE_SPEC_LENCOJJ); 
INCR J FROM 0 TO FULLFILES fen 
BEGIN 
IF -FULL_FILE_ SPECE FILE_SPEC_LEN 03] eQL ' ' 
OR .FULL-FILE-SPECC.FILE-SPEC_LENLOJ] EQL O THEN EXITLOOP; 
FILE SPEC_LENCOJ = .FILE-SPEC"LENLOJ + 1; 
RETURN 
END; ! End of routine FID_TO_SPEC 
DEVICE_NAME= FULL_FILE_SPEC 
DIR_NAME= FULL~F ILE-SPEC+38 
FILE_NAME= FULL-FILE~SPEC+49 
~EXTRN COCAL_FIB, 1OCSCVT_DEVNAM 
OFFC 00000 FID_TO_SPEC: 
.WORD Save R2,R3,R4 “RS R6,R7,R8,R9,R10,R11 
56 0000' CF 9E 0000 MOV FILE_SPEC_LEN. 
00 6E ¢2 9 2c Bn08 MOVC #0, TSP), #0, #09, FULL_FILE_SPEC 
52 00006 CF 00 6004 MOVL 10_PACKET, R2 
51 02 Ag 4 001 MOVAB DEVICE NABE. R1 
55 1¢ A2 D 1 MOVL (R2)> RS 
54 D4 0001D CLRL = RG 
50 5 DO O001F MOVL #37, RO 
000000006 00 16 00 2 JSB 10C$CVT_DEVNAM 
66 1 $ MOVW DEVICE_CEN, FILE SPEC_LEN 
50 66 c B MOVZWL FILE SPEC. LEN 
02 A640 5B OF O2E OVB #91, FULL“FILE_SPECCRO) 
66 8B INCW FILE _SPEC™ LEN 
00006 CF ; TSTw LOCAC_F IB? 
4C A BEQL «6s 4$ 
7E p4 C CLRL = = (SP) 
00006 cf F 5 PUSHAB LOCAL_F1IB+10 
00006 CF 2 FB 0004 CALLS #2, READ_HEADER 
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i FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 


INPUT PARAMETERS: 
ARG1: address of file header 


IMPLICIT INPUTS: 
10_P 
PRIMARY_FC 

OUTPUT PARAMETERS: 
NONE 


of file 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


ie eed te et ee oe i te te te tt tt tt te te te 


BEGIN 
MAP 
HEADER : REF BBLOCK, 
ABD : REF BBLOCKV 
LOCAL 
CTL_ACC_GRANTED, 
SAVE_HIBLK, 
SAVE CHAR 
ACE_POINTER : REF BBLOCK; 
EXTERNAL 
USER_STATUS : VECTOR 
CLEARUP_FLAGS : BITVECTOR, 
10_ PACKET : REF BBLOCK, 
CURRENT WINDOW : REF BBLOCK, 
LOCAL_FT8 : BBLOCK, 
PRIMARY_FCB : REF BBLOCK; 


b-2p-19 4 93:43:46 
4-Sep-1984 12:29:49 


GLOBAL ROUTINE WRITE_ATTRIB (HEADER, ABD, CONTROL_ACCESS) 


WRITE_ATTRIB (ARG1, ARG2, ARG3) 


: NOVALUE = 


This routine performs the write attributes function. The 
requested attributes are taken from the buffer packet. 


44 address of buffer descriptors 
ARGS: 1 = check for control access to the file 
0 = no control access check 


ACKET: 1/0 rs for this operation 
B: FC 


attribute data written into appropriate places 


' file header arg 
C TH); 


ABDSC_LENG 
buffer descriptor arg 


Flag indicating central access granted 
saved Fopy of file's HIBLK 

initial state of protected attributes 
address of user ACE 


user request status 
cleanup action flags 
1/0 packet in process 
window of open file 
fopy of user's FIB 

FCB of file 


VAX=11 Bliss-32_V4,0-74 


0-742 p 
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RWATTR 16-Sep-1984 01:15:44 VAX-11 Bliss-32 V4.0-74 
v04-000 19-3 08- 1 3be 93:33:45 DISKSVMSMASTER:CF1I1A.SR 


; 800 1119 EXTERNAL ROUTINE ; 
: 801 111 PMS_START_ SUB, ! start subfunction metering : 
; 80 Wie PMS" END S ! end subfunction metering | : 
: 80 111 CHECK PROTECT, i check file protection ; 
: 804 1114 CHECKSUM i checksum a file header : 
; 805 1115 MARK_DIRfY, ! mark buffer for write-back | ‘ 
3 94 1118 MAKE NAMEBLOCK, ' convert file string to RAD-50 name block ‘ 
; 80 111 GET_TIME; ! get date/time string ° 
; 808 1118 : 
; 809 1119 : 
5 9 1 ? Start metering for this subfunction. ; 
3 \§ 11 § ; 
; 81 11 PMS_START_SUB (PMS_RWATT); 
> 814 1126 
; $12 1 5 CTL_ACC_GRANTED = 0; 
3 «87 11 S ! Set the appropriate cleanup flags and save the initial state of the 
; 818 1128 ! protected file characteristics. 
; 819 1129 : 
; 820 1130 
: : 1 1131 CHECKSUM (.HEADER); 
: é 11 : MARK DIRTY (. HEADER); 
3 asi 1 ? CLEANUP _FLAGSCCLF_FIXFCB) = 1; 
; HH 1135 SAVE_CHAR = .HEADERCFH1S$W AN hort AND PROTECTED CHAR; 
; : $ 1138 SAVE_HIBLK = .BBLOCK CHEADERCFHI$W_RECATTRJ, FATSC_HIBLK); 
; $56 1138 : | 
2 o¢) 1139 ! Scan the buffer packet, picking up each entry. The first byte of the 
; 830 1140 ! text is the attribute code. 
: 831 1141 : 
3 S36 1136 
; 83 114 INCR_ I FROM ABDSC_ATTRIB TO .IO_PACKETCIRP$W_BCNTJ-1 DO 
; 834 1144 BEGIN 
; 835 1145 
: 836 1146 LOCAL 
3 Oar 1147 ACTION : BYTE, ! action routine code 
; 838 1148 " ' pointer to attribute text 
; 839 1149 COUNT, ! attribute size desired 
; 840 1150 ADDRESS : REF BBLOCK, ! address of attribute 
: «841 1151 CODE ! attribute code 
: é 1138 MAX_ COUNT i max size of attribute 
: 113 ATT-BUFFER : BBLOCK £201. i attribute copy buffer 
3 He arr: DATBuF : VECTOR , BYTE]; ! buffer to build date string | 
: 6 1328 P = .ABDC.1, ABDSW_TEXT] + apot.t. ABDS$W_TEXT); 
; 7? 115 COUNT = .ABDC.1, ABD$W_COUNT]; 
> 848 1158 CODE = .(.P)<0,8> - 1; 
3 9 1159 P= P+ 1; 
; 850 1160 ‘ 
3 81 1161 ! Check the attribute code for legality, and then check the requested 
; 2¢ 1106 ! size against the Limit. 
; «685 116 ! | 
3 854 1164 
; «64855 1165 IF .CODE GTR MAX_CODE - 1 
: 856 1166 THEN ERR_EXIT (SS$_BADATTRIB); | 
| 


X_COUNT = .ATCC.CODE, ATC_MAX_SIZE]; 
TF [COUNT GTR .MAX_COUNT 

THEN ERR EXIT TSS$_BADATTRIB) ; 
IF_.ATCC.CODE, ATC_PROTECTED) 
THEN 
BEGIN 
i * -CTL_ACC_GRANTED 


BEGIN 
BBLOCK CHEADER 


ERCFHISW_RECATTRIJ, FATSL “ioe: BLK] = SAVE HIBLK: 
Tee PROTECT (WRATT_ACCESS, .HEADER, .PRIMARY_FCB); 
CTL_ACC_GRANTED = 1;~ 
END; 
END; 
Compute the action routine code. 
ION = .ATCE.C ATC Ue 


ACT 
IF ATCC. CODE, Ate’ READ _ONL 
“WEN ACTION = ACT T_Nop 


Compute the address of the attribute. 


ADDRESS = 
snes: hata -CODE, ATC_LOCATION] FROM 0 TO ATC_LASTATC OF 
oATE -ZERO, 
ATC-ACL, 
ATC “ACPGBL, 


ATC™FIDGNAME] : ATT_BUFFER; 

CATC"FCB): -PRIMARY._ FCB; 

ATC“HEADER): 7H 

ATC~IDENTJ: THEADER + .HEADERCFH1$B_IDOFFSETJ*2; 
ATC. P): “HEADER + .HEADERLFH1$B-MPOFFSETI#2: 


) 
+ .ATCC.CODE, ATC_OFFSETI; 


Finally execute the action routine. 
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AANAAANIA AAA NANA BEEBE EEE EEE FAWN NWN NNW TUT B&B BWI 


coun” aca FROM Q TO ACT_LASTACT OF 


CACT_N 
act -BLOEKSIZE, 
ACT~ZERO 


ast TBLANK 
ACT “STATBLK): 0; 


~w 


RCIRWATIR. B32; 439 


i a 


BE 
Ss 


14 
15 -1984 01:15:44 VAX-11 Bliss-32 V4.0 
14-Sep-19 4 93:38:85 gf 


; a6 ‘ ; CACT_ILLEGAL]: ERR_EXIT (SS$_BADATTRIB); 

; 216 1 6 ra CACT_UIC): BEGIN 

; 31 4 1F COUNT GEQU 4 

: 318 1 § BEGIN 

: 920 1230 (. ADDRESS) <0.8> = ..P; 

; 921 1231 ( ADDRESS)<8.8> = .(. P42); 

; 9 ; 1 ¢ IF See bY ce NEQ 8 

; 9 1 OR .(.P+3)<0,8> NEQ 

: 924 1234 THEN (.ADDRESS)<0,16> = =1; 

i 32 153% 3 eno; 

: 927 1237 . 

: 928 1238 4 CACT_UCHAR]: BEGIN 

: 929 1239 4 (, ADDRESS)<0,8> = ..P; 

; 930 1240 4 IF .COUNT GE 

; 333 1349 THEN (ADDRESS)<8,8> = .(.P+1); 

: 9 124 : 

; 332 1244 4 CACT_ASCNAME]: BEGIN 

: 935 1245 4 MAKE _NAMEBLOCK (LOCAL_FIB, .COUNT, .P, ATT_BUFFER); 
; 936 46 CHSMOVE (10, ATT_BUFFERLNMB$W_NAMEJ, ADDRESS); 

: 938 1248 : 

: 939 1249 & CACT_DATIME]: BEGIN 

+ 940 1250 4 CHSCOPY (.COUNT, .P, 0, 8, ATT_BUFFER); 

> 941 1251 4 GET TIME (DATBUF, ATT_BUFFER); 

: 94 1258 4 COUNT = 

; 943 1253 2 (CASE .CODE FROM ATRSC_CREDATE=1 TO ATRSC_BAKDATE-1 OF 
; 945 1255 5 ATRSC_CREDATE=1]: 13; 

> 946 1256 5 ATRSC-REVDATE-1]: 13: 

: 947 1257 § ATRSC_EXPDATE-1]: 7; 

; 948 1258 ; CATRSC_BAKDATE~13: 0: 

: 950 1260 4 CHSMOVE (.COUNT, DATBUF, .ADDRESS): 

; 95¢ 1268 : 

; 933 1263 CACT_COPY): CHSMOVE (.COUNT, .P, .ADDRESS); 

: 955 1265 4 CACT_ACL): BEGIN 

: 956 1266 4 ACE POINTER = .P; 

; 937 67 4 CASE .CODE + 1 FROM ATRSC_ADDACLENT TO ATRSC_READACE OF 
: 959 1269 4 ATRSC_ADDACLENT]: 0; 

> 960 1270 4 ATRSC_DELACLENT, 

: 961 1271 4 ATRSC_MODACLENT, 

: 96¢ 18% 4 TRSC_DELETEACL, 

; 96 1273 4 ATRSC_FNOACLENT.| 

3 964 127% 4 ATRSC-FNDACLIYP, 

> 965 1275 4 ATRSC~READACL 

3; 966 1 ds 5 ATRSC-READACES: BEGIN 

+ 967 1277 5 CHSFILL (0, .COUNT ACE POINTER) 
: 968 28 5 ACE _POINTERCACESW_FLAG = $S$_ACLEMPTY; 
: 970 1380 5 CATRSC_ACLLENGTH]: BEGIN 
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TES; 
END; 


1b-Sep- 1984 t 91: 


! end of loop 


9:49 
CHSFILL (0, 
END; 


5:44 VAX=11_ Bliss-32_V4,0-742 
DISKSVMSMASTER:CF11A.SRCIRWATTR.B32; ‘ 


-COUNT, .ACE_POINTER); 


' Restore the state of the protected file characteristics bits. 


HEADERCFHIS$W_FILECHAR] = 


5 
4 
4 
4 
TES; 
END; 
; 
i 
C 
MARK_DIRTY (.HEADER); 
; 
2 
1 


OR 
BBLOCK CHEADER[FH1$W_RECATTRI, 
! Checksum the modified header. 


HECKSUM (.HEADER); 
! Stop metering of this subfunction 


PMS_END_SUB (); 


END; 


00006 


00006 


00006 
00006 


08 AE 


04 


C 
5 
5 
A 
5 
5 
5 
5 


NO YPMmomMmoon"mn 


(, goer gh He FILECHAR AND NOT PROTECTED_CHAR) 


oo 
ea 


oc 
FFFF2F7F 
12 

00996 


017D 
08 BC4A 
60 


SOOOOOCOCOCOCOOCOOOCoooo 


SoOoooooooooooooooo 
ONE M9 OW SHO SPYVMON 


= ,SAVE_HIBLK; 


! end of routine 


B 
MOVAQ 
MOVZWIL. 


WRITE_ATTRIB 


CLEANUP_FLAGS, CHECK_PROTECT 
CHECKSUM, MARK 
MAKE KNAMEBLOCK? GET_TIME 


weit ATTRIB, Save R2,R3,R4,R5,R6,R7,R8,R9,— 


0,RT1 
ogee SP 


# 
#1, PMS_START_SUB 
cTL_ACC “GRANTED 
HEADER, R2 
» CHECKSUM 


MARK DIRTY 
Ae a FLAGS 


#-53 > RO SAVE gar 
18(R2), SA AVE JH 


Jo pACKE! (sp) 
a, I 


33§ 
attere RO 
(RO), P 


D 14 | 
RWATTR 16-Sep-1984 01:15:44 -VAX=11 Bliss-32 V4.0-742 Page 28 
v04-000 a aets 1 93339509 DISKSVMSMASTER:CFIIA.SRCJRWATTR.B32;1 > ( | 
7 50 CO 0004F ADDL2 RO, P ; 
9 02 Ao 3 MOVZWL 2(RO), COUNT + 1157) 
6 $7? OA MOVZBL (P)+, CODE + 1158 
36 07 ECL CODE : | 
2F 6 D1 B CMPL CODE. #47 + 1165) 
08 4 5 GTR § : 
FAF1 CF46 7F 0006 PUSHAQ ATC+4(CODE) + 1168) 
50 2 3c 0006 MOVZWL @(SP)+, MAX_COUNT : 
0 59 D1 00068 CMPL RQUNT. MAX_COUNT 3 1169) 
03 15 00068 2$ BLEG $ : 
009 31 9060 BRW 14$ : 
FADD CF46 7F 99 9 3$ PUSHAQ ATCCCODE) > 1172) 
1F 9E 01 €1 9007 BBC #1, a(SP)+, 4$ : 
16 Oc AE £8 00079 BLES  CTC_ACC_GRANTED, 4S £1175, 
50 04 AC DO 0007D MOVL HEADER, “R : 1178 | 
12 AO 04 AE DO 00081 OVL  SAVE_HIBLK, 18(RO) : | 
00006 CF 0D 00086 PUSHL PRIMARY_FCB : 1179) 
04 AC DD OOOBA PUSHL : 
05 DD 00080 PUSHL # : 
00006 CF 03 FB O008F CALLS #3, CHECK_PROTECT : 
OC AE 01 b0 aia MOVL #1 git ATC_GRANTED 3 1180) 
FAB8 CF46 7F 00098 4$ PUSHAQ ATC+3LCODEJ + 1187 
52 9E 90 0009D MOVB a(SP)+, ACTION : 
FAAD CF46 7F OOOAD PUSHAQ ATCCCOD : 1188 | 
02 9E 00 £1 00045 BBC #0, a(SP)+, 5$ : 
52 94 000A9 CLRB ACTION : 1189 
FAA3 CF46 7F OOOAB SS: PUSHAQ ATC+1LCODE) > 1196 | 
07 00 9E 8F 000B0 CASEB a(SP)+, #0, #7 : 
0023 001D 0016 0010 000B4 6$: “WORD 7$-6$,- : 
0010 0010 0010 002E 0008 8$-6$.- : 
9$-6$.- : 
10$-6$,- : 
11$-6$.- : 
7$-6$,- ; 
7$-6$.- : 
7$-6$ ; 
50 20 AE 9E 000C4 7S: MOVAB ATT_BUFFER, RO : 
24 11 000C8 BRB $ : 
50 00006 CF DO QO0CA 8$: MOVL PRIMARY_FCB, RO : 1202 
1D 11 OOOCF BRB : 
50 04 AC DO 00001 9S: MOVL HEADER, RO + 1203 
17 11 00005 BRB 12$ : 
50 04 BC 9A 00007 108 MOVZBL @HEADER, RO > 1204 
50 04 BC40 3 90008 MOVA @HEADERLRO], RO F 
0c OQOE BRB 2 ; 
51 04 AC DO 000E2 118 MOVL HEADER, R1 > 1205 | 
50 01 Al 9A OOE6 MOVZBL 1(R1), RO : | 
50 6140 3€ OOOEA OVAW (R1)CROJ, RO : 
FAG1 CF46 7F OOEE 12% PUSHAQ ATC+2LCODE] : 1208 | 
58 9E 9a OO0F MOVZBL a(SP)+, ADDRESS : | 
58 2 £0 O0F6 ADDL2 RO, ADORE : 
0c 00 F OOOF CASEB ACTION #0, #12 : 1214 | 
00¢7 0092 001C o¢ 007 13$ <WORD 33$-13$,- : 
0061 004A 00c7 C7 : 14$-13$.- : 
0098 00C7 0038 O1F 1 : $-13$;- : 
0c? 11 $-1 $.- : 
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16-Sep-1984 01:15:44 VAX=11 Bliss-32 V4.0-742 0 
1o-808- 1382 9} 29:49 DISKSVMSMASTER:CF11A.SRCIRWATTR.B32; ie at 
$-28$,- 3 
$-28$,- ; 
$- $,- ; 
$-28$,- : | 
$-28$,- $ 
$-28$ : 
14 11 uA 9$: BRB 5 : 
SE 00 2c O18 O$:  mOovcS #0, (SP), #0, COUNT, (ACE_POINTER) + 1277 
02 AB 0900 8F BO 00186 MOVW #2512, 2(ACE_POINTER) : 1278 
é ii 1BC 31$: BRB 33$ + 1267 
6E 00 C 185 2$:  MOVCS #0, (SP), #0, COUNT, (ACE_POINTER) + 1281 
SA 5 F? 1C4 33$:  AOBLSS (SP), 1, 34$ + 1143 
11 001¢8 BRB 35$ : 
FE7A 31 OOI1CA $e$: BRW 1$ : 
52 04 AC bd O1CD 35$: OVL HEADER, R2 + 1294 
50 O¢ Ae 3C 00101 MOVZ2WL 12(R2). RO : 
50 00000080 8F CA 0109 Che #53376, RO ; 
50 08 AE A9 0010C BISWS SAVE_CHAR, RO, 12(R2) + 1295 
2 04 AE D0 OO1E¢ OVL  SAVETHIBLK, 18(R2) > 1296 
52 DD OO1E PUSHL R2 + 1301 
00006 CF 01 FB 001E9 CALLS #1, CHECKSUM F 
52 DD OO1EE PUSHL R2- : 1302 
00006 CF 01 FB 001FO CALLS #1, MARK_DIRTY : 
0000G CF 00 FB O0O1FS CALLS #0. PMS _END_SUB 3 1307 
04 OO1FA RET : 1309 


; Routine Size: 507 bytes, Routine Base: SCODES + O4AE 


1000 1310 
1001 1311 1 END 
1002 1312 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 1705 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SLOCKEDD1$ 512 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


ecececce Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


Library Statistics 
~$255$DUA28: CSYSLIBILIB.L32;1 18619 103 0 1000 00:02.0 | 
} 


14 
IESep4986 QU:3565  YMCLTABLUSEERE HR TA2aovarne.o52s489" 


3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:RWATTR/OBJ=OBJ$:RWATTR MSRC$:RWATTR/UPDATE=(ENHS:RWATTR) 
3 a goo) 901 data bytes 


; Run Time: 735. 
; Elapsed Time: 1:10.5 
3; Lines/CPU Min: $3) 

3; Lexemes/CPU-Min: 19337 

; Used: 256 pages 


H COMMAND QUALIFIERS 
; r 
; Compilation Complete 
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